home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / ovoc.zip / TESTVOC.PRG < prev    next >
Text File  |  1993-06-10  |  967b  |  36 lines
  1. // Class TVocFile for CA-Clipper, use examples
  2. // (c) Antonio Linares, 1993
  3.  
  4. //----------------------------------------------------------------------------//
  5.  
  6. function Main( cFileName )
  7.  
  8.     local oVoc := TVocFile():Use( "boing.voc" )    // let's have some fun!
  9.  
  10.     if oVoc:lHardware
  11.        oVoc:nVolVocL = 12
  12.        oVoc:nVolVocR = 12
  13.        oVoc:nDelay   =  8
  14.        oVoc:Play()
  15.     endif
  16.  
  17.     oVoc:Use( "ManOver.voc" )                      // quite wet...
  18.     if oVoc:lHardware
  19.        oVoc:nDelay = 12
  20.        oVoc:Play()
  21.     endif
  22.  
  23.     oVoc:Use( "MySound.voc" )                      // let's create a VOC file
  24.     if oVoc:lHardware
  25.        Alert( "Press a key to start;and again to stop recording" )
  26.        oVoc:nVolRec = 40
  27.        oVoc:Rec()
  28.        oVoc:Play()                                 // let's listen it
  29.     endif
  30.  
  31.     oVoc:Use()
  32.  
  33. return
  34.  
  35. //----------------------------------------------------------------------------//
  36.